home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / T-COMAL Today / (k)ta.d64 / saveshape.proc < prev    next >
Text File  |  2007-02-28  |  343b  |  16 lines
  1. 9000 //
  2. 9010 PROC SAVESHAPE(SPR,FILENAME$) CLOSED
  3. 9020 IF SPR>=0 AND SPR<64 THEN
  4. 9030 DIM DS$ OF 2
  5. 9040 OPEN FILE 81,FILENAME$,WRITE
  6. 9050 DS$:=STATUS$
  7. 9060 IF DS$="00" THEN
  8. 9070 FOR I#:=0 TO 63 DO
  9. 9080 BYTE:=PEEK(49152+SPR*64+I#)
  10. 9090 PRINT FILE 81: CHR$(BYTE),
  11. 9100 ENDFOR I#
  12. 9110 ENDIF 
  13. 9120 CLOSE FILE 81
  14. 9130 ENDIF 
  15. 9140 ENDPROC SAVESHAPE
  16.